home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rprint_1 / samplemd.frm < prev    next >
Text File  |  1999-08-22  |  5KB  |  152 lines
  1. VERSION 5.00
  2. Object = "{47C6C21B-5872-11D3-88F5-889105C10627}#1.0#0"; "Roboprint6ER.ocx"
  3. Begin VB.MDIForm SampleMdi 
  4.    Appearance      =   0  'Flat
  5.    BackColor       =   &H00FFFFFF&
  6.    Caption         =   "SampleMdi"
  7.    ClientHeight    =   5715
  8.    ClientLeft      =   2220
  9.    ClientTop       =   2160
  10.    ClientWidth     =   6795
  11.    LinkTopic       =   "MDIForm1"
  12.    WindowState     =   2  'Maximized
  13.    Begin VB.PictureBox SampleMdi 
  14.       Align           =   1  'Align Top
  15.       Appearance      =   0  'Flat
  16.       BackColor       =   &H80000004&
  17.       ForeColor       =   &H80000008&
  18.       Height          =   435
  19.       Left            =   0
  20.       ScaleHeight     =   405
  21.       ScaleWidth      =   6765
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   6795
  25.       Begin RoboprintE6R.Roboprint Roboprint1 
  26.          Height          =   375
  27.          Left            =   660
  28.          TabIndex        =   8
  29.          Top             =   15
  30.          Width           =   720
  31.          _ExtentX        =   1270
  32.          _ExtentY        =   661
  33.          BtnPrint_ToolTipText=   ""
  34.          BtnView_ToolTipText=   ""
  35.          BeginProperty TitlesFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.             Name            =   "MS Sans Serif"
  37.             Size            =   8.25
  38.             Charset         =   177
  39.             Weight          =   400
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.       End
  45.       Begin VB.CommandButton Command1 
  46.          Height          =   322
  47.          Index           =   7
  48.          Left            =   3780
  49.          Picture         =   "SampleMdi6.frx":0000
  50.          Style           =   1  'Graphical
  51.          TabIndex        =   7
  52.          ToolTipText     =   "RichTextBox"
  53.          Top             =   30
  54.          Width           =   345
  55.       End
  56.       Begin VB.CommandButton Command1 
  57.          Height          =   330
  58.          Index           =   6
  59.          Left            =   3255
  60.          Picture         =   "SampleMdi6.frx":03AC
  61.          Style           =   1  'Graphical
  62.          TabIndex        =   6
  63.          ToolTipText     =   "Grid Input Edit"
  64.          Top             =   30
  65.          Width           =   360
  66.       End
  67.       Begin VB.CommandButton Command1 
  68.          Height          =   322
  69.          Index           =   4
  70.          Left            =   4230
  71.          Picture         =   "SampleMdi6.frx":07EE
  72.          Style           =   1  'Graphical
  73.          TabIndex        =   5
  74.          ToolTipText     =   "Exit"
  75.          Top             =   30
  76.          Width           =   345
  77.       End
  78.       Begin VB.CommandButton Command1 
  79.          Height          =   322
  80.          Index           =   5
  81.          Left            =   2780
  82.          Picture         =   "SampleMdi6.frx":0C30
  83.          Style           =   1  'Graphical
  84.          TabIndex        =   4
  85.          ToolTipText     =   "ListView"
  86.          Top             =   30
  87.          Width           =   345
  88.       End
  89.       Begin VB.CommandButton Command1 
  90.          Height          =   322
  91.          Index           =   3
  92.          Left            =   2320
  93.          Picture         =   "SampleMdi6.frx":0D32
  94.          Style           =   1  'Graphical
  95.          TabIndex        =   3
  96.          ToolTipText     =   "ListBox"
  97.          Top             =   30
  98.          Width           =   345
  99.       End
  100.       Begin VB.CommandButton Command1 
  101.          Height          =   322
  102.          Index           =   2
  103.          Left            =   1860
  104.          Picture         =   "SampleMdi6.frx":111C
  105.          Style           =   1  'Graphical
  106.          TabIndex        =   2
  107.          ToolTipText     =   "MsGraph"
  108.          Top             =   30
  109.          Width           =   345
  110.       End
  111.       Begin VB.CommandButton Command1 
  112.          Height          =   322
  113.          Index           =   1
  114.          Left            =   1395
  115.          Picture         =   "SampleMdi6.frx":14B7
  116.          Style           =   1  'Graphical
  117.          TabIndex        =   1
  118.          ToolTipText     =   "MsFlexGrid"
  119.          Top             =   30
  120.          Width           =   345
  121.       End
  122.    End
  123. End
  124. Attribute VB_Name = "SampleMdi"
  125. Attribute VB_GlobalNameSpace = False
  126. Attribute VB_Creatable = False
  127. Attribute VB_PredeclaredId = True
  128. Attribute VB_Exposed = False
  129.  
  130. Private Sub Command1_Click(Index As Integer)
  131. Select Case Index
  132. Case 1
  133. MsFlexSample.Show
  134. MsFlexSample.ZOrder 0
  135. Case 2
  136. MsChartFrm.Show
  137. MsChartFrm.ZOrder 0
  138. Case 3
  139. ListFrm.Show
  140. ListFrm.ZOrder 0
  141. Case 6
  142. Formiga.Show
  143. Formiga.ZOrder 0
  144. Case 7
  145. RichText.Show
  146. RichText.ZOrder 0
  147. Case 4
  148. Unload Me
  149. End Select
  150. End Sub
  151.  
  152.